home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / noise-2.bas < prev    next >
BASIC Source File  |  1994-06-23  |  3KB  |  80 lines
  1. 10 PRINT "   ***NOISE FIGURE, TEMPERATURE AND SENSITIVITY RELATIONSHIPS***"
  2. 15 PRINT
  3. 20 PRINT "            ***MENU OF CONVERSIONS***"
  4. 25 PRINT
  5. 30 PRINT "(1) DBM TO MICROVOLTS (uV)"
  6. 40 PRINT "(2) MICROVOLTS (uV) TO DBM"
  7. 50 PRINT "(3) NOISE FIGURE (NF) TO MICROVOLTS (uV)"
  8. 60 PRINT "(4) NOISE VOLTAGE (EN) IN MICROVOLTS (uV)"
  9. 70 PRINT "(5) NOISE POWER (PN) IN WATTS AND DBM"
  10. 80 PRINT "(6) NOISE FIGURE (NF) TO NOISE TEMPERATURE (TE) IN DEGREES KELVIN"
  11. 90 PRINT "(7) NOISE TEMPERATURE (TE) TO NOISE FIGURE (NF)"
  12. 100 PRINT "(8) NOISE FIGURE (NF) TO NOISE FLOOR (FL)"
  13. 110 PRINT "(9) NOISE FLOOR (FL) TO NOISE FIGURE (NF)"
  14. 120 PRINT "(10) (NF) FOR uV INPUT WITH (S + N)/N = 3 DB"
  15. 122 PRINT
  16. 124 PRINT "      ***SELECT CONVERSION DESIRED BY NUMBER***"
  17. 126 PRINT
  18. 130 INPUT "ENTER DESIRED NUMBER"; D
  19. 140 ON D GOTO 150,220,280,370,460,540,600,640,700,760
  20. 150 INPUT "ENTER THE SENSITIVITY (DM) IN -DBM"; DM
  21. 180 INPUT "ENTER THE INPUT RESISTANCE (R) IN OHMS"; R
  22. 190 X = (90 + 4.343 * LOG(R) + DM)/20
  23. 200 ES = 10^X
  24. 210 PRINT ES, "SENSITIVITY (ES) IN MICROVOLTS (uV)"
  25. 215 GOTO 850
  26. 220 INPUT "ENTER THE SENSITIVITY (ES) IN MICROVOLTS (uV)"; ES
  27. 250 INPUT "ENTER THE INPUT RESISTANCE (R) IN OHMS"; R
  28. 260 DM = -90 - 4.343 * LOG(R) + 8.686 * LOG(ES)
  29. 270 PRINT DM, "SENSITIVITY (DM) IN DBM"
  30. 275 GOTO 850
  31. 280 INPUT "ENTER THE NOISE FIGURE (NF) IN DB"; NF
  32. 310 INPUT "ENTER THE INPUT RESISTANCE (R) IN OHMS"; R
  33. 320 INPUT "ENTER THE BANDWIDTH (B) IN KHz"; B
  34. 340 X = NF/10
  35. 350 ES = (6/10^3) * ((10^X * R * B)^.5)
  36. 360 PRINT ES, "SENSITIVITY (ES) IN MICROVOLTS (uV)"
  37. 365 GOTO 850
  38. 370 K = 1.37/10^23
  39. 390 INPUT "ENTER THE TEMPERATURE (TE) IN DEGREES KELVIN"; TE
  40. 410 INPUT "ENTER THE BANDWIDTH (B) IN KHz"; B
  41. 430 INPUT "ENTER THE INPUT RESISTANCE (R) IN OHMS"; R
  42. 440 EN = ((4 * 1.37 * TE * B * R)/10^8)^.5
  43. 450 PRINT EN, "NOISE VOLTAGE (EN) IN MICROVOLTS (uV)"
  44. 455 GOTO 850
  45. 460 INPUT "ENTER THE NOISE TEMPERATURE (TE) IN DEGREES KELVIN"; TE
  46. 490 INPUT "ENTER THE BANDWIDTH (B) IN KHz"; B
  47. 500 PN = (1.37/10^20) * TE * B
  48. 510 PRINT PN, "NOISE POWER (PN) IN WATTS"
  49. 520 DM = -4.343 * LOG(.001/PN)
  50. 530 PRINT DM, "NOISE POWER (DM) IN DBM"
  51. 535 GOTO 850
  52. 540 INPUT "ENTER THE NOISE FIGURE (NF) IN DB"; NF
  53. 560 X = NF/10
  54. 570 F = 10^X
  55. 580 TE = (F - 1) * 290
  56. 590 PRINT TE, "NOISE TEMPERATURE (TE) IN DEGREES KELVIN"
  57. 595 GOTO 850
  58. 600 INPUT "ENTER THE NOISE TEMPERATURE (TE) IN DEGREES KELVIN"; TE
  59. 620 NF = 4.343 * LOG((TE + 290)/290)
  60. 630 PRINT NF, "NOISE FIGURE (NF) IN DB"
  61. 635 GOTO 850
  62. 640 INPUT "ENTER THE NOISE FIGURE (NF) IN DB"; NF
  63. 670 INPUT "ENTER THE BANDWIDTH (B) IN KHz"; B
  64. 680 FL = -144 + 4.343 * LOG(B) + NF
  65. 690 PRINT FL, "NOISE FLOOR (FL) IN DBM"
  66. 695 GOTO 850
  67. 700 INPUT "ENTER THE NOISE FLOOR (FL) IN -DBM"; FL
  68. 730 INPUT "ENTER THE BANDWIDTH (B) IN KHz"; B
  69. 740 NF = FL + 144 - (4.343 * LOG(B))
  70. 750 PRINT NF, "NOISE FIGURE (NF) IN DB"
  71. 755 GOTO 850
  72. 760 INPUT "ENTER THE SENSITIVITY (ES) IN MICROVOLTS (uV)"; ES
  73. 790 INPUT "ENTER THE INPUT RESISTANCE (R) IN OHMS"; R
  74. 810 INPUT "ENTER THE BANDWIDTH (B) IN KHz"; B
  75. 820 NF = 4.343 * LOG((ES^2 * 10^6)/(4 * R * B))
  76. 830 PRINT NF, "NOISE FIGURE (NF) IN DB"
  77. 840 PRINT
  78. 845 PRINT "PREPARED BY I.L.McNALLY K6WX"
  79. 850 END
  80.